Option Explicit
Sub B_Sample050()
    MsgBox Application.DefaultFilePath
End Sub